home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_08_06 / 8n06084a < prev    next >
Text File  |  1990-03-12  |  508b  |  18 lines
  1.  
  2. ─────────────────────────────────────────────────────────────────────────
  3.                   Sample INFORMIX-4GL program (Fig. 1)
  4.  
  5. main
  6.     define contact_no integer
  7.     declare label_cur cursor for
  8.        select * from contact
  9.              order by last_name, first_name
  10.  
  11.     foreach label_cur into label_rec.*
  12.         let contact_no = contact_no + 1
  13.         display "Name: ", label_rec.first_name, label_rec.last_name
  14.     end foreach
  15.     display "Found ", contact_no, "records."
  16. end main
  17.  
  18.